100 REM PROGRAMMABLE CHARACTER                   BOX PRINTER BY WIM
110 FORX=1TO7:READB$(X):NEXTX:DATA64,32,16,08,04,02,01
120 OPEN4,4:PRINT#4,CHR$(1)"    PROGRAMMABLE CHARACTER CHARTS":PRINT#4:PRINT#4
130 OPEN6,4,6:PRINT#6,CHR$(22)
140 FORT=1TO5:FORI=1TO7
150 FORXX=1TO4:PRINT#4,B$(I);" [207][163][207][163][207][163][207][163][207][163][207][208]   ";:NEXTXX:PRINT#4,CHR$(141)
160 FORXX=1TO4:PRINT#4,"   [204][164][204][164][204][164][204][164][204][164][204][186]   ";:NEXTXX:PRINT#4,CHR$(141)
170 NEXT:PRINT#4:PRINT#4,SPC(4);:FORXX=1TO4
180 PRINT#4,CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";
190 PRINT#4,CHR$(34);" ";CHR$(34);SPC(7);:NEXTXX
200 FORI=1TO5:PRINT#4:NEXTI,T
210 PRINT#6,CHR$(36):CLOSE6:CLOSE4